1000 REM
1010 PRINT"[147]"
1020 POKE53280,0:POKE53281,0
1030 REM
1040 REM
1050 FORI=0TO62:READJ:POKE832+I,J:NEXT
1060 FORI=0TO62:READJ:POKE896+I,J:NEXT
1070 V=53248
1075 GOSUB1720
1080 POKE2040,13:POKEV+21,1
1090 POKE2041,14:POKEV+40,8
1100 POKEV+39,14
1110 POKEV,150:POKEV+1,180
1120 POKEV+28,2
1130 REM
1140 S=54272:FORI=0TO24:POKES+I,0:NEXT
1150 POKES+5,31:POKES+6,240
1160 POKES+24,15
1170 L=12:X=150:W=12
1180 POKE646,14
1190 PRINTCHR$(147):SE=0
1200 FORI=1TO20
1210 PRINTTAB(L)"^"SPC(W)"^"
1220 NEXT:POKEV+31,0
1230 POKES+4,33:POKES,100:POKES+1,4
1240 PRINTCHR$(19)CHR$(158)"PUNKTE"
1250 PRINTCHR$(19)TAB(28)"MAX."
1260 REM
1270 DIR=1:IFRND(1)<.5THENDIR=2
1280 SE=SE+1:Q=Q+1
1290 IFDIR=1THENL=L-1
1300 IFL<10THENL=L+1
1310 IFDIR=2THENL=L+1
1320 IFL>20THENL=L-1
1330 PRINTCHR$(19)CHR$(17);
1340 PRINTCHR$(157)CHR$(148)
1350 POKE218,160
1360 PRINTTAB(L)"[166]"SPC(W)"[166]"
1370 P=PEEK(56320)
1380 IFP=123THENZ=1
1390 IFP=119THENZ=2
1400 ONZGOSUB1510,1530
1410 POKEV,X
1420 PRINTCHR$(19)TAB(6);SE
1430 IFSE>HITHENHI=SE
1440 PRINTCHR$(19)TAB(34);HI
1450 IFQ=100THENW=W-1:Q=0
1460 IFPEEK(V+31)AND1=1THEN1560
1470 POKEV+31,0
1480 IFW=8THENW=12
1490 GOTO1270
1500 REM
1510 X=X-4:IFX<10THENX=10
1520 RETURN
1530 X=X+4:IFX>250THENX=250
1540 RETURN
1550 REM
1560 POKEV+21,2
1570 POKEV+2,X:POKEV+3,180
1580 FORB=15TO0STEP-.2:POKES+1,2+B
1590 POKES+4,129:POKES+24,B
1600 POKEV+37,INT(RND(TI)*14)
1610 POKEV+38,INT(RND(TI)*14)
1620 NEXT:POKES+4,0
1630 POKEV+21,0
1640 REM
1650 PRINTCHR$(19)
1660 POKE646,INT(RND(TI)*15)
1670 FORI=1TO4:PRINTCHR$(17):NEXT
1680 PRINTTAB(7)"FEUERKNOPF FUER ";
1690 PRINT"NEUES SPIEL"
1700 IFPEEK(56320)<>111THEN1650
1710 GOTO1075
1720 PRINT"[147]"
1730 PRINTCHR$(19)CHR$(30)
1740 PRINTTAB(7)"< T R A C K * ";
1750 PRINT"R A C E R >"
1760 PRINTCHR$(17)CHR$(17)
1770 PRINTTAB(2)"STEUERE DEIN AUTO ";
1780 PRINT"MIT DEM JOYSTICK"
1790 PRINTTAB(2)"DIE GLATTE FAHRBAHN ";
1800 PRINT"ENTLANG."
1810 PRINTTAB(2)"ABER PASS AUF! ";
1820 PRINT"DIE STRASSE WIRD"
1830 PRINTTAB(2)"S C H M A L E R ..."
1840 PRINTCHR$(17)CHR$(17)CHR$(17)
1850 PRINTTAB(12)"TASTE DRUECKEN"
1855 PRINTCHR$(17)TAB(12)">A = ANFAENGER"
1857 PRINTCHR$(17)TAB(12)">E = EXPERTE  "
1858 PRINTCHR$(17)TAB(12)">X = EXIT TO BASIC"
1860 GETA$:IFA$=""THEN1860
1865 IFA$="A"THENGOSUB3000:GOTO1870
1866 IFA$="X"THENGOTO5000
1867 IFA$="E"THENGOSUB4000:GOTO1870
1868 IFA$<>"E"ORA$<>"A"THEN1860
1870 RETURN
1880 REM
1890 DATA0,248,0,0,248,0,0,248,0,5,141
1900 DATA0,7,239,0,5,221,0,1,220,0,1
1910 DATA252,0,1,140,0,1,36,0,1,116,0,1
1920 DATA252,0,1,252,0,3,86,0,54,219,96
1930 DATA55,223,96,63,87,224,54,251,96
1940 DATA50,2,96,7,255,0,7,255,0
1950 REM
1960 DATA0,32,0,2,73,52,6,157,193,104
1970 DATA188,29,131,54,124,44,118,249
1980 DATA65,231,242,31,227,178,78,8,57
1990 DATA39,63,156,47,159,30,73,222,124
2000 DATA36,194,240,73,248,198,19,153
2010 DATA216,71,205,144,23,15,36,16,103
2020 DATA72,13,146,80,0,8,144,3,87,32
3000 POKEV+23,0:POKEV+29,0:RETURN
4000 POKEV+23,3:POKEV+29,3:RETURN
5000 PRINT"[147]"TAB(15)"SICHER(J/N)?"
5010 GETO$:IFO$=""THEN5010
5020 IFO$="N"THENRUN
5030 IFO$="J"THEN5050
5040 IFO$<>"J"ORO$<>"N"THEN5010
5050 SYS64738